home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Shareware Plus / Applications / Charting Coach / Charting Coach V2.0sw / Charting Coach V2.DXR / 00280.ls < prev    next >
Encoding:
Text File  |  1996-10-13  |  619 b   |  26 lines
  1. on mouseUp
  2.   global correctionMade, currentCycleNo, cycleNo, userNo, wantsToViewCycles
  3.   if correctionMade = 0 then
  4.     if the optionDown then
  5.       quit()
  6.     end if
  7.     killcorrection()
  8.     writecycleinfo()
  9.     if currentCycleNo <> getAt(cycleNo, userNo) then
  10.       set currentCycleNo to getAt(cycleNo, userNo)
  11.       readCycleInfo()
  12.     end if
  13.     puppetVisible(13, 48, 1)
  14.     puppetStatus(11, 48, 0)
  15.     go("removeImage")
  16.     set the visible of sprite 7 to 1
  17.     prepfrontpage()
  18.   else
  19.     set wantsToViewCycles to 0
  20.     go("save changes")
  21.     set the visible of sprite 7 to 1
  22.     cursor(0)
  23.   end if
  24.   cursor(0)
  25. end
  26.